home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #5 / Amiga Plus CD - 2000 - No. 5.iso / Tools / Misc / FLM / otherfiles / english / ARexx / edward_take.rexx < prev    next >
OS/2 REXX Batch file  |  2000-01-01  |  1KB  |  38 lines
  1. /* [TRANSLATOR'S NOTE. As I didn't own Edward neither I could try it nor
  2.    translate its menu items. In such cases, I've put the supposed English
  3.    translation between [* and *]].
  4.  
  5.    This script gets translation from FLM and writes it at the current
  6.    cursor position.
  7.  
  8.    To call this script through a keyboard shortcut, load the file
  9.    "Edward.DEF" in Edward directory. Now, go with your cursor on location
  10.    "Keybordbelegungen" [* Keyboard Mapping/Allocation *] (you can find this
  11.    in "Einstellungen" [* Settings *] menu), and insert the following line
  12.    e.g. after "(CTRL".
  13.  
  14.    <Key> (ExecRexx "<File>")
  15.  
  16.    <Key>:  Here you must indicate the key through which this script could
  17.            be called, e.g. F9
  18.    <File>: Here you must indicate name and path of this file.
  19.  
  20.    E.g.: F9    (ExecRexx "edward_take.rexx")
  21.  
  22.    In the above example, through Ctrl+F9, translation will be written at
  23.    current cursor position.
  24.  
  25. -> Warning: The program RexxMast must be active !!!
  26. */
  27.  
  28. Options RESULTS
  29.  
  30. Address FLM TAKEWORD /* Translation in Variable RESULT */
  31.  
  32. If Symbol('RESULT')='LIT' Then Exit /* Is RESULT defined? */
  33.  
  34. a=Insert('"',"Address EDWARD 'insertchars "RESULT"'",28)
  35. a=Insert('"',a,29+Length(RESULT))
  36.  
  37. Interpret a /* Execute string "a" as a command */
  38.